From 51420cc7c2711e2ccf3b1fa20ab8c9861c91380a Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Thu, 11 Mar 1993 07:01:17 +0000 Subject: [PATCH] * term/x-win.el: Disable suspending under X windows by setting suspend-hooks, not suspend-hook. The latter is an obsolete name. Use add-hook instead of setting suspend-hooks directly. --- lisp/term/x-win.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 91a50f6491c..a8f9ecb571d 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -508,9 +508,10 @@ This returns ARGS with the arguments that have been processed removed." (setq x-display-name (getenv "DISPLAY")))) (setq frame-creation-function 'x-create-frame) -(setq suspend-hook - '(lambda () - (error "Suspending an emacs running under X makes no sense"))) + +(defun x-win-suspend-error () + (error "Suspending an emacs running under X makes no sense")) +(add-hook 'suspend-hooks 'x-win-suspend-error) ;;; Arrange for the kill and yank functions to set and check the clipboard. (setq interprogram-cut-function 'x-select-text) -- 2.30.2